Mac-Source 1994 July/Mac-Source_July_1994.iso/C and C++/Compilers⁄Interps/GCC-2.3.3r12/Tests/parmpragma.c

C/C++ Source or Header | 1993-05-17 | 893 b | 38 lines | [TEXT/MPS ]

#include "testlib.h"

#pragma parameter __D0 a0tod0(__A0)
long a0tod0(long a0) = 0x2008;
#pragma parameter __A1 a0plus1toa1(__A0)
long a0plus1toa1(long a0) = { 0x43e8, 0x0001 };

// Should add more combinations of args and results.

#pragma parameter a0etctod0(__D0,__A0,__D1,__D2)
long a0etctod0(long d0, long a0, long d1, long d2) = 0x2008;
#pragma parameter d2etctod0(__D0,__A0,__D1,__D2)
long d2etctod0(long d0, long a0, long d1, long d2) = 0x2002;

#pragma parameter all5tod0(__D0,__A0,__D1,__A1,__D2)
long all5tod0(long d0, long a0, long d1, long a1, long d2) = 0x2008;

test_pp()
{
    itesteq(__LINE__, 45, a0tod0(45));
    itesteq(__LINE__, 46, a0plus1toa1(45));
    itesteq(__LINE__, 2, a0etctod0(1, 2, 3, 4));
    itesteq(__LINE__, 4, d2etctod0(1, 2, 3, 4));
    itesteq(__LINE__, 20, all5tod0(10, 20, 30, 40, 50));
}

int
main()
{
    curtestfile = __FILE__;

    test_pp();

    summary();

    return 0;
}